function [] = weevil_resizeAndSubSampleVideos(vid)


%%

outVidName = strrep(vid.name, '.mov', '_sub.avi');
outVid = VideoWriter(outVidName);

nframes = vid.NumberOfFrames;
sampInt = 30*2;

%samples = round(linspace(1,nframes, nsamples)); %Select a subset of frames
samples = round(1:sampInt:nframes);
open(outVid);

%
for j = 1:numel(samples)
    
    %%
    im = read(vid, samples(j));
    imsub = rgb2gray(im);
    imrs = imresize(imsub(:,1:1440), [1080 1920]);
    writeVideo(outVid, imrs);
end

close(outVid);